home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / disk / kan10a.lha / Kan / SHIFTKAN < prev   
Encoding:
AmigaDOS Script File  |  1992-07-24  |  940 b   |  45 lines
  1. .key drive
  2. .bra [
  3. .ket ]
  4.  
  5. if exists "[drive]KAN7"
  6.  rename "[drive]KAN7" "[drive]KANx"
  7. endif
  8. if exists "[drive]KAN6"
  9.   if not exists "[drive]KANx"
  10.      rename "[drive]KAN6" "[drive]KANx"
  11.   else
  12.      rename "[drive]KAN6" "[drive]KAN7"
  13.   endif
  14. endif
  15. if exists "[drive]KAN5"
  16.   if not exists "[drive]KANx"
  17.      rename "[drive]KAN5" "[drive]KANx"
  18.   else
  19.      rename "[drive]KAN5" "[drive]KAN6"
  20.   endif
  21. endif
  22. if exists "[drive]KAN4"
  23.   if not exists "[drive]KANx"
  24.      rename "[drive]KAN4" "[drive]KANx"
  25.   else
  26.      rename "[drive]KAN4" "[drive]KAN5"
  27.   endif
  28. endif
  29. if exists "[drive]KAN3"
  30.   if not exists "[drive]KANx"
  31.      rename "[drive]KAN3" "[drive]KANx"
  32.   else
  33.      rename "[drive]KAN3" "[drive]KAN4"
  34.   endif
  35. endif
  36. if exists "[drive]KAN2"
  37.   if not exists "[drive]KANx"
  38.      rename "[drive]KAN2" "[drive]KANx"
  39.   else
  40.      rename "[drive]KAN2" "[drive]KAN3"
  41.   endif
  42.   rename "[drive]KAN"  "[drive]KAN2"
  43.   rename "[drive]KANx" "[drive]KAN"
  44. endif
  45.